home *** CD-ROM | disk | FTP | other *** search
/ Programming Languages Suite / ProgramD2.iso / Languages / Masm V6.11 / SAMPLES / MIXED / FMAIN.FO$ / FMAIN
Encoding:
Text File  |  1992-11-12  |  338 b   |  15 lines
  1. C     Calls Power2 in FORTRAN.ASM
  2. C     Compile with:  FL FMAIN.FOR FORTRAN.OBJ
  3.  
  4.       INTERFACE TO INTEGER*2 FUNCTION POWER2(A, B)
  5.       INTEGER*2 A, B
  6.       END
  7.  
  8.       PROGRAM MAIN
  9.       INTEGER*2 POWER2
  10.       INTEGER*2 A, B
  11.       A = 3
  12.       B  = 5
  13.       WRITE (*, *) '3 TIMES 2 TO THE B OR 5 IS ',POWER2(A, B)
  14.       END
  15.